object frmPrincipal: TfrmPrincipal
  Left = 274
  Top = 100
  Caption = 'PROFESTA'
  ClientHeight = 473
  ClientWidth = 1010
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  OldCreateOrder = False
  Position = poDefault
  OnActivate = FormActivate
  OnClick = FormClick
  OnClose = FormClose
  OnCreate = FormCreate
  DesignSize = (
    1010
    473)
  PixelsPerInch = 96
  TextHeight = 13
  object Lbabreajuda: TInternetLabel
    Left = 8
    Top = 42
    Width = 33
    Height = 13
    Cursor = crHandPoint
    Hint = 'Ajuda da tela principal'
    Alignment = taRightJustify
    Caption = 'Ajuda'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
  end
  object lbindiceajuda: TInternetLabel
    Left = 64
    Top = 42
    Width = 90
    Height = 13
    Cursor = crHandPoint
    Hint = 'Ajuda da tela principal'
    Alignment = taRightJustify
    Caption = #205'ndice da Ajuda'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold, fsUnderline]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    Visible = False
    OnClick = lbindiceajudaClick
  end
  object ActionMainMenuBar1: TActionMainMenuBar
    Left = 0
    Top = 0
    Width = 1010
    Height = 29
    UseSystemFont = False
    ActionManager = ActionManager1
    Caption = 'ActionMainMenuBar1'
    ColorMap.HighlightColor = clWhite
    ColorMap.BtnSelectedColor = clBtnFace
    ColorMap.UnusedColor = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    Spacing = 0
  end
  object GrupoAgenda: TGroupBox
    Left = 96
    Top = 71
    Width = 657
    Height = 377
    Anchors = [akLeft, akTop, akBottom]
    Caption = 'Agenda:'
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -15
    Font.Name = 'Calibri'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    DesignSize = (
      657
      377)
    object Label1: TLabel
      Left = 23
      Top = 31
      Width = 68
      Height = 18
      Caption = 'Data Inicial'
    end
    object Label2: TLabel
      Left = 403
      Top = 31
      Width = 61
      Height = 18
      Anchors = [akTop]
      Caption = 'Data Final'
    end
    object dataini: TMonthCalendar
      Left = 20
      Top = 57
      Width = 232
      Height = 203
      Date = 40804.595154074070000000
      TabOrder = 0
    end
    object datafim: TMonthCalendar
      Left = 400
      Top = 63
      Width = 232
      Height = 203
      Anchors = [akTop]
      Date = 40804.595154074070000000
      TabOrder = 1
    end
    object GridAgenda: TDBAdvGrid
      AlignWithMargins = True
      Left = 20
      Top = 296
      Width = 613
      Height = 44
      Cursor = crDefault
      Anchors = [akLeft, akTop, akBottom]
      ColCount = 2
      RowCount = 5
      FixedRows = 1
      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected]
      ScrollBars = ssBoth
      TabOrder = 2
      ActiveCellFont.Charset = DEFAULT_CHARSET
      ActiveCellFont.Color = clWindowText
      ActiveCellFont.Height = -11
      ActiveCellFont.Name = 'Tahoma'
      ActiveCellFont.Style = [fsBold]
      Filter = <>
      FixedColWidth = 20
      FixedRowHeight = 22
      FixedFont.Charset = DEFAULT_CHARSET
      FixedFont.Color = clWindowText
      FixedFont.Height = -11
      FixedFont.Name = 'Tahoma'
      FixedFont.Style = [fsBold]
      FloatFormat = '%.2f'
      PrintSettings.DateFormat = 'dd/mm/yyyy'
      PrintSettings.Font.Charset = DEFAULT_CHARSET
      PrintSettings.Font.Color = clWindowText
      PrintSettings.Font.Height = -11
      PrintSettings.Font.Name = 'Tahoma'
      PrintSettings.Font.Style = []
      PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
      PrintSettings.FixedFont.Color = clWindowText
      PrintSettings.FixedFont.Height = -11
      PrintSettings.FixedFont.Name = 'Tahoma'
      PrintSettings.FixedFont.Style = []
      PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
      PrintSettings.HeaderFont.Color = clWindowText
      PrintSettings.HeaderFont.Height = -11
      PrintSettings.HeaderFont.Name = 'Tahoma'
      PrintSettings.HeaderFont.Style = []
      PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
      PrintSettings.FooterFont.Color = clWindowText
      PrintSettings.FooterFont.Height = -11
      PrintSettings.FooterFont.Name = 'Tahoma'
      PrintSettings.FooterFont.Style = []
      PrintSettings.PageNumSep = '/'
      ScrollWidth = 16
      SearchFooter.FindNextCaption = 'Find &next'
      SearchFooter.FindPrevCaption = 'Find &previous'
      SearchFooter.Font.Charset = DEFAULT_CHARSET
      SearchFooter.Font.Color = clWindowText
      SearchFooter.Font.Height = -11
      SearchFooter.Font.Name = 'Tahoma'
      SearchFooter.Font.Style = []
      SearchFooter.HighLightCaption = 'Highlight'
      SearchFooter.HintClose = 'Close'
      SearchFooter.HintFindNext = 'Find next occurence'
      SearchFooter.HintFindPrev = 'Find previous occurence'
      SearchFooter.HintHighlight = 'Highlight occurences'
      SearchFooter.MatchCaseCaption = 'Match case'
      Version = '2.1.6.0'
      AutoCreateColumns = True
      AutoRemoveColumns = True
      Columns = <
        item
          Borders = []
          BorderPen.Color = clSilver
          CheckFalse = 'N'
          CheckTrue = 'Y'
          Color = clWindow
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'Tahoma'
          HeaderFont.Style = []
          PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
          PrintFont.Charset = DEFAULT_CHARSET
          PrintFont.Color = clWindowText
          PrintFont.Height = -11
          PrintFont.Name = 'Tahoma'
          PrintFont.Style = []
          Width = 20
        end
        item
          Borders = []
          BorderPen.Color = clSilver
          CheckFalse = 'N'
          CheckTrue = 'Y'
          Color = clWindow
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          HeaderFont.Charset = DEFAULT_CHARSET
          HeaderFont.Color = clWindowText
          HeaderFont.Height = -11
          HeaderFont.Name = 'Tahoma'
          HeaderFont.Style = []
          PrintBorders = [cbTop, cbLeft, cbRight, cbBottom]
          PrintFont.Charset = DEFAULT_CHARSET
          PrintFont.Color = clWindowText
          PrintFont.Height = -11
          PrintFont.Name = 'Tahoma'
          PrintFont.Style = []
          Width = 64
        end>
      DataSource = dsagenda
      ShowUnicode = False
      ColWidths = (
        20
        64)
    end
    object BitBtn1: TBitBtn
      Left = 135
      Top = 26
      Width = 114
      Height = 25
      Caption = 'Atualizar agenda'
      TabOrder = 3
      OnClick = BitBtn1Click
    end
  end
  object stbar: TStatusBar
    Left = 0
    Top = 454
    Width = 1010
    Height = 19
    Panels = <
      item
        Width = 350
      end
      item
        Width = 300
      end>
  end
  object ActionManager1: TActionManager
    ActionBars = <
      item
        Items = <
          item
            Action = acClientes
          end
          item
            Action = acMateriais
          end
          item
            Action = acUsuarios
          end
          item
            Action = acRelatorios
            Caption = 'R&elat'#243'rios'
          end
          item
            Items = <
              item
                Action = ac_ajudaprofesta
              end
              item
                Action = acsobre
              end>
            Action = acajuda
          end
          item
            Action = acSair
          end>
        ActionBar = ActionMainMenuBar1
      end>
    OnExecute = ActionManager1Execute
    Left = 32
    Top = 200
    StyleName = 'XP Style'
    object acClientes: TAction
      Caption = '&Clientes'
      OnExecute = acClientesExecute
    end
    object acMateriais: TAction
      Caption = '&Materiais'
      OnExecute = acMateriaisExecute
    end
    object acAluguel: TAction
      Caption = '&Aluguel'
      Enabled = False
      OnExecute = acAluguelExecute
    end
    object acUsuarios: TAction
      Caption = 'Gerenciar &Usu'#225'rios'
      OnExecute = acUsuariosExecute
    end
    object acsobre: TAction
      Caption = '&Sobre'
      OnExecute = acsobreExecute
    end
    object acajuda: TAction
      Caption = 'A&juda'
      OnExecute = acajudaExecute
    end
    object acSair: TAction
      Caption = 'Sai&r'
      OnExecute = acSairExecute
    end
    object acRelatorios: TAction
      Caption = '&Relat'#243'rios'
      OnExecute = acRelatoriosExecute
    end
    object acHistorico: TAction
      Caption = 'Historico'
      OnExecute = acHistoricoExecute
    end
    object ac_pagamento: TAction
      Caption = 'Pagamento'
      OnExecute = ac_pagamentoExecute
    end
    object ac_abreajuda: TAction
      Caption = 'Conte'#250'do da ajuda'
    end
    object ac_ajudaprofesta: TAction
      Caption = 'Ajuda ao usu'#225'&rio'
      OnExecute = ac_ajudaprofestaExecute
    end
  end
  object query1: TZQuery
    Connection = Frmsenha.conn
    Params = <>
    Left = 680
    Top = 32
  end
  object querydadosrelatorio: TZQuery
    Connection = Frmsenha.conn
    SQL.Strings = (
      
        'select descricao, quantidade, valor_unitario, valor_material fro' +
        'm'
      'material, locacao_detalhe where '
      
        'id_locacao = 60 and locacao_detalhe.id_material = material.id_ma' +
        'terial;')
    Params = <>
    Left = 712
    Top = 32
    object querydadosrelatoriodescricao: TStringField
      FieldName = 'descricao'
      Required = True
      Size = 50
    end
    object querydadosrelatorioquantidade: TIntegerField
      FieldName = 'quantidade'
      Required = True
    end
    object querydadosrelatoriovalor_unitario: TFloatField
      FieldName = 'valor_unitario'
      Required = True
    end
    object querydadosrelatoriovalor_material: TFloatField
      FieldName = 'valor_material'
      Required = True
    end
  end
  object QueryAgenda: TZQuery
    Connection = Frmsenha.conn
    Params = <>
    Left = 656
    Top = 96
  end
  object dsagenda: TDataSource
    DataSet = QueryAgenda
    OnDataChange = dsagendaDataChange
    Left = 696
    Top = 96
  end
end
